home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / SAVMAP.for < prev    next >
Text File  |  1991-04-13  |  1KB  |  42 lines
  1.         SUBROUTINE SAVMAP(AREA)
  2.     IMPLICIT NONE
  3.         REAL*4 AREA(15)
  4. C
  5. C       THIS SUBROUTINE SAVES THE STATUS FROM THE LAST MAPPRM-MAPIT CALLS.
  6. C       WHEN USED IN CONJUCTION "RSTMAP", THE USER CAN SWITCH AROUND BETWEEN
  7. C       MULTIPLE GRAPHIC REGIONS ON THE SCREEN CREATED WITH "MAPIT".
  8. C
  9.         INCLUDE DIGLIB$KOM:PLTCLP.PRM
  10.         INCLUDE DIGLIB$KOM:PLTCOM.PRM
  11.         INCLUDE DIGLIB$KOM:PLTSIZ.PRM
  12. C
  13. C       SAVE THE MAPIT CLIPPING LIMITS
  14. C
  15.         AREA(1) = XMIN
  16.         AREA(2) = XMAX
  17.         AREA(3) = YMIN
  18.         AREA(4) = YMAX
  19. C
  20. C       SAVE WORLD TO VIRTUAL COORD. TRANSFORMATION CONST.
  21. C
  22.         AREA(5) = UX0
  23.         AREA(6) = UDX
  24.         AREA(7) = UY0
  25.         AREA(8) = UDY
  26.         AREA(9) = 0.0
  27.         IF (LOGX) AREA(9) = 1.0
  28.         AREA(10) = 0.0
  29.         IF (LOGY) AREA(10) = 1.0
  30. C
  31. C       NOW SAVE VIRT. COORD. LOCATION OF AXES
  32. C
  33.         AREA(11) = XVSTRT
  34.         AREA(12) = YVSTRT
  35.         AREA(13) = XVLEN
  36.         AREA(14) = YVLEN
  37. C
  38. C       ALL DONE
  39. C
  40.         RETURN
  41.         END
  42.